(vc-sccs-state): Pass FILE to vc-user-login-name.

diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index c4047d1b3eccf28b9e06bde1ffb204e9946489fa..ef2c8b34ff137d0d36b760dfc4013e0abafd16b5 100644 (file)
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -108,7 +108,7 @@ For a description of possible values, see `vc-check-master-templates'."
               (if (vc-workfile-unchanged-p file)
                   'up-to-date
                 'unlocked-changes)
-            (if (string= locking-user (vc-user-login-name))
+            (if (string= locking-user (vc-user-login-name file))
                 'edited
               locking-user)))
       'up-to-date)))